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v03-001 ‘ety aria del C. Nasr 02-Apr-1984 
the address a the source string for the ZLOCATE function 
; zero, then it is the null string and we do not need to make 
a character match. It is assumed that the string was not found. 


v03.00 MmTROOO7 Mike Rhodes 15-Mar-1982 
Modify the lexical function routines for ZEXTARCT ang PLOCATE. 
The routine MACLIN_LXEXT now treats the Rie. position and 
length values as unsigned integers. MACLIN_LXLOC now, will not 
count the text link byte which caused some problems previously. 
Both modifications tix SPR #11-4 


vO2.12 CNHO044 Chris Hume 20-Nov-1980 " 
Fixed handling of macro expansion block continuation Linkages. 


lates MACRO-32 source code into object 
LINKER. 
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1 mits P=1984 AX/VMS Macro V04-00 Page 2 | 
Pay984 Of: “7 MACRO. SRCIMACLIN.MAR; 1 an 
RNOO2 R. 3-Jan-1980 
Don't ‘put unecessary “tne s inne’ intermediate code when 
not tise ng macro expansions. 


RNOO23 R. Newland 3-Nov-1979 
New message codes Any get error messages from system 
message file. 


RNOO10 R. Newland 5-Sep-1979 
Auli tpage MXB blocks 


n0005 R. Newland 18-Aug-1978 
Variable symbol storage and remove .A IGN 1ONG statements 


RNOO04 R. Newland 22-Jun-1979 
Fix truncation error 


MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 VAX/VMS Macro V04-00 Pa MA 
v04-000 DECLARATIONS geen 1882 94:9 :02 ([CMACRO.SRCJMACLIN.MAR; 1 - 3) VO 
44 -SBTTL DECLARATIONS 
5 ; INCLUDE FILES: 
} 
6 : + MACROS: 
$0 7! 
00 § SMAC_GENVALDEF ;DEFINE GENERAL VALUES 
00 SMAC_MNBDEF DEFINE MNB OFFSETS 
38 8 SMAC_MTXDE DEFINE MACRO SPECIAL OPERATORS 
SMAC_CTLFLGDEF DEFINE CONTROL FLAGS 
000 90 SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
900 91 SMAC_ INPBLKDEF DEFINE INPUT BLOCK OFFSETS 
003C 3 SMAC~ INTCODDEF DEFINE INT. BUFFER CODES 
003C 9 SMACASGDEF ; Define message codes 
003C¢ 94 
003C¢ 95; 
003C 96 ; LOCAL DATA 
003C 97 ; 
003C 98 
00009008 138 -PSECT MAC$RO_DATA,NOWRT ,NOEXE,GBL,LONG 
0000 101 MACLIN_MTXT_TAB: ;TABLE OF SPECIAL MACRO OPERATOR BYTES 
FE 0000 10 -BYTE MTX$_TXTLNK,= TEXT LINK TO NEW PAGE 
0001 10 MTX$_ARGMRK ,- DUMMY ARGUMENT MARKER 
FF 0001 104 MTX$_LXLEN,-= sLEXICAL LENGTH FUNCTION 
ie FD 9008 199 MTX$"LXLOC,- sLEXICAL LOCATE FUNCTION 
00000005 9003 107 LENSK_MTXTAB = ~  ,*MACLIN_MTXT_TAB ;LENGTH OF TABLE 
0005 109 -ALIGN LONG 
0008 110 MACLIN_DISP_TAB: DISPATCH TABLE FOR SPECIAL OPERATORS 
0008 111 -ADBRESS MACLIN_TXTLNK,= 3 LINK 
0000149" 0008 Wg MACLIN_ARGMRK,- ARGUMENT MARKER 
0000118" 000C 11 MACLIN_LXLEN,= LENGTH FUNCTION 
00000154" 0010 114 MACLIN_LXLOC,= sLOCATE 
00000168'000001CB' bore M2 MACLIN_LXEXT s EXTRACT 
00000000 117 -PSECT MACS$RO_CODE_MAC,NOWRT,GBL,LONG 


MTX$~LXEXT “LEXICAL EXTRACT FUNCTION 
| 
| 
| 
| 
| 
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16-SEP-1984 02:0 AX/VMS Macro V04-00 p 
GET NEXT LINE OF .IRPC  Saeep=}O84 B1z29200 NS ree oe VO OO st eect 


~SBTTL MACSGET_IRC_LIN GET NEXT LINE OF .IRPC 


;++ 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE IS CALLED TO GET THE NEXT TEXT LINE WHILE 
; EXPANDING AN INDEFINITE REPEAT CHARACTER ‘MACRO’. IF 
; THE END OF THE TEXT IS NOT THE NEXT LINE, MACSGET_IRC_LIN 
; WILL RETURN THE NEXT LINE. IF IT IS THE END, AND THERE 
; ARE STILL MORE CHARACTERS IN THE INDEFINTE REPEAT STRING 
; THE REPEAT WILL BE RESTARTED WITH THE NEXT CHARACTER. If 
F THERE ARE NO MORE CHARACTERS, THE INPUT CONTEXT IS POPPED, 
; TERMINATING THE INDEFINITE REPEAT. 
MACSGET_ Rc LIN:: 
50. O000'CF 00 OVE W*MACS$GL_INPUTP,RO :POINT TO INPUT CONTEXT BLOCK 
04 AO —00 10$: MOVE INPSL al GET NEXT LINE POINTER 
5E 10 BSBB = MAC_RPT_END_CHK :SEE IF END OF REP EAT TEXT 
: GO TO MACSGET MAC 


N IF 
eat END. RETURN Saty IF END 


OOD NAUE WN (OC OONAUE WN OOONOULSWNO”0 


DWONNTNS OSM "DDD OMOOCOCCOOCOCOOCOCSOOCOOCOCOO +0 


COOoOOoCoooooooooooQooooooooooooooooOooO 


51 3F AO 00 OVL INP$K_IRPS1Z+3(RO),R1 ‘WEar Ehawa into IRPC string 
7E 81 9A MOVZBL (R1)+7-(SP) Get NEXT CHA RACT TER 
3F AO) 3051s MOVL R1, INPSK. IRPS1Z+3(RO) Set mabien 
51 BED0 POPL RI ice CHARA TER “BACK 
3E AO) 2051Ss«90 MOVE  R1, INP$K_IRPS1IZ+2(RO) Set argune 
03 12 BNEQ 40 iF “hed” THERE TS MORE TO DO 
FFDE* 31 BRW MACSPOP_INPUT HIS IS THE END--POP INPUT CONTEXT 
04 A0 14 A0 00 40$:  MOVL —INPSL_RPTCNT(RO), INPSL _niTLcROD “RESET NEXT LINE POINTER 
~ ie | BRB 10$ REP EAT THE INDEFINITE REPEAT 
WITH THE NEW CHARACTER 
005c 31 50$: BRW MACSGET_MAC_LIN ‘BRANCH AID TO GET TO FAR PLACES! 


MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 VAX/VMS Macro v04-00 
v04-000 MACSGET_IRP_LIN GET NEXT LINE OF .IRP tise Yi EEE ERACKO SRE MACLIN.MAR; 1 
09 : 133 -SBTTL MACSGET_IRP_LIN GET NEXT LINE OF .IRP 
6 C 188 p++ 
0 : 138 3; FUNCTIONAL DESCRIPTION: 
6 C 158: THIS ROUTINE IS CALLED TO GET THE NEXT TEXT LINE WHILE IN 
02c 159; AN INDEFINITE REPEAT EXPANSION. IF THE END OF THE TEXT 
02C 160 ; NOT THE NEXT LINE, MACSGET_MAC_LIN WILL URN T 
002C 161; NEXT LINE. IF IT IS THE END, AND THERE IS ANOTHER REAL 
02C 166 3 ARGUMENT, THE REPEAT IS RESTARTED WITH THE NEW REAL 
O2C 163; ARGUMENT. IF THERE ARE NO MORE REAL ARGUMENTS, THE 
O02 164; INPUT CONTEXT IS POPPED, TERMINATING THE INDEFINITE 
O2Cc 165; REPEAT. 
002C 196 3 
002C 167 ;-- 
02C 168 
O02C 169 MACSGET_IRP_LIN:: 
50  QO00'CF 00 bet 170 move W*MACSGL_INPUTP,RO :GET POINTER TO INPUT BLOCK 
51 04 A0 DO 0031 171 108: MOVL INPSL_NXTL(RO) ,R1 GET NEXT LINE POINTER 
32. 10 0035 \7¢ BSBB MAC _RPT_END_CHK 7SEE IF END OF REPEAT RANGE 
037 17 3; GO TO MACSGET_MAC_LIN IF NOT 
037 174 3 Rg TURN ONLY IF ENB 
51 3C AO DE 0037 175 MOVAL INPSK_IRPSIZ(RO),R1 ; Point to real ar qveve header 
51 0081 OF bee 178 REMQUE @(R1),R1 3GET THE ADDR OF NEXT REAL ARG 
03 1C OO3F 17 vc 40$ sIF V-CLEAR THEN WE GOT AN ENTRY 
FFBC’ 31 041 178 BRW MACSPOP_INPUT 3NO MORE ARGS--POP INPUT CONTEXT 
1D AO O08 Al 9E 0044 #4179 40S: MOVAB 8(81), INP$L_ARGS(RO) ;POINT TO ARG STRING IN INPUT BLOCK 
04 AO 14 A0 DO 0049 #180 MOVL INPSL_RPTCNT(RO),INPSL_NXTL(RO) ;RESET NEXT LINE POINTER 
E1 11 O04E 181 BRB 10$ ;PERFORM NEXT REPEAT 


Page 
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MACSMACLIN GET MACRO LI 16-SEP-1984 02:08:37 VAX/VMS Macro V04-00 Page MAI 
404-005 MACSGET_RPT_LIN GET NEXT LINE OF REPEAT misty y 8F 08:35 MACRO.SRCJMACLIN.MAR; 1 . (8) vO 
~SBTTL MACSGET_RPT_LIN GET NEXT LINE OF REPEAT 

++ 
2 3 FUNCTIONAL DESCRIPTION: 
5 : THIS ROUT INE 1S CALLED TO GET THE NEXT TEXT LINE WHILE IN 
3 : A .REPT DIRECTIVE EXPANSION. IF THE END OF THE TEXT 
2 : NOT THE NEXT LINE, MAC$GET MAC_LIN WILL RETURN THE NE 
0 : LINE. IF IT IS THE END, TRE REPEAT COUNT IS DECREMENTED, 
05 : AND IF IT HAS GONE TO ZERO, THE INPUT CONTEXT IS POPPED, 
05 3 THUS TERMINATING THE REPEAT. IF IT HAS NOT GONE TO ZERO, 
05 : THE NEXT LINE POINTER IS RESET AND THE REPEAT BLOCK IS 
05 ; EXPANDED AGAIN. 
0050 ; 
0050 i-- 
0050 
0050 MACSGET_RPT_LIN:: 
50 O000'CF 00 0030 move W“MACSGL_INPUTP,RO GET POINTER TO INPUT BLOCK 
51 04 A0 00 OOS 10$: MOVL INPSL_NXTL(RO),R1 3GET NEXT LINE POIN Hi 
OE 10 0059 8588 MAC_RPT_END_ nk SEE IF END OF REPEAT RANGE 
0058 : GO TO MACSGET_MAC LIN IF NOT 
0058 : RETURN ONLY IF 
03 14 AO F4 0058 30$: SOBGEQ INPSL_RPTCNT(RO),40$ DEC. REPEAT COUNT AND Go IF NOT DONE 
FF9E* 31 OOSF BRW MACSPO DONE=-POP INPUT CONTEXT 
04 AO 21 A0_ QE B06¢ 40$: MOVAB INPS$K_BCKSIZ(RO),INPSL _NXTL(ROD 3 Scent sexe pointer 
EC 11 9067 BRB 10$ :PERFORM NEXT REPEAT 


s++ 
; FUNCTIONAL DESCRIPTION: 
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: THIS ROUTINE PICKS UP THE LINE LENGTH AND DETERMINES I 
0069 : IT IS REALLY A LINE OR THE END OF TEXT MARKER. IF IT 
0069 : REALLY A LINE, THE RETURN ADDRESS IS POPPED AND WE DI 
$44 ; TO MACSGET _MAC LIN. RETURN ONLY IF END OF TEXT. 
0069 : INPUTS: 
0069 : R1 POINTER TO WORD CONTAINING BYTE COUNT 
0068 : RO POINTER TO INPUT CONTEXT BLOCK 
0969 : OUTPUTS: 
0069 : RETURN IS POPPED AND BRANCH IS MADE TO MACSGET_MAC_LIN UNLESS 
Bee ; LINE LENGTH IS -1 (END OF TEXT MARKER). TEXT CINKS ARE HANDLED. 
0069 ie 
069 
69 MAC_RPT_END_CHK: 
52.81 33 69 CVTOL = (R1) +, R2 :GET LENGTH OF LINE 
© 6«6 6C BGEQ :1F GEQ CERTAINLY NOT END OF TEXT 
53 52 O01 Al f ADDW3 = #1, R2,R3 :1S IT END OF TEXT (-1)? 
13. 13 «00 BEQL s1F EQL YES 
FFFE 8F 32 B1 0074 CMPW Re #MTXS_TXTLNK!*XFFOO ;NO--I1S IT A_TEXT LINK? 
08 12 0079 BNEQ 108 [IF NEQ NO--TEXT LINE WITH 
7B ; SPECIAL OPERATORS 
51 81 00 7B MOVL (R1)+,R1 sYES--GET POINTER TO NEXT PAGE 
51 8 C¢ 7E ADDL2 #MXBSK_BLKSIZ,R1 ; Skip header infomation 
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TMA 
ACSGET_ 
6 11 40 BRB ss MAC_RPT_END_CHK CONTINUE CHECKING 
F 03 41 10$: —-TSTL ‘ :CLEAR RETURN FROM STACK 
11 43 BRB MACSGET_MAC_LIN :AND GO RETURN NEXT TEXT LINE 
05 43 208:  -RSB ;RETURN ONLY IF END OF TEXT 


MACSRACLIN GET MACRO LINE Ig-SEB-198 0:08: 37 AX/VMS Macro v04-00 Page 8 
v04= MACSGET_MAC_LIN EXPAND NEXT LINE OF CURR 5-SEP-1984 01:49:02 [MACRO.SRCJMACLIN.MAR; 1 (6) 
45 .SBTTL MACSGET_MAC_LIN EXPAND NEXT LINE OF CURRENT MACRO 
<3 p++ 
rf 3 FUNCTIONAL DESCRIPTION: 
50 ; THIS ROUTINE IS CALLED BY MACSGETCHR WHEN IT IS TIME FOR A 
6 31 ; NEW LINE. THE NEXT LINE OF THE MACRO IS EXPANDED INTO 
; : MACSAB_LINEBF. 
0 >} 
MACSGET NAC LIN:: 
1178 8F BB p 36 USAR #*M<R3,R4,R5,R6,R7,RB,R12> i SAVE ores ISTERS 
5¢ O000'CF DO ¢ 38 ROVE W°MACSGL_INPUTP.R12 sPOINT TO CURRENT INPUT BLOCK 
56  0000'CF i 091 5 MOVAB U“MACSAB™ LINEBF ,R6 ‘POINT 8 THE LINE BUFFER 
0000° CF 36 p 9096 60 OVL 6,W°MACSGL LINEPT TRESET LINE POINTER 
55 0368 BF 3¢ 098 61 MOVZWL #INPSX BUFSTZ.R ‘LOAD MAX CHARACTER COUNT 
57 04 AC 06 OOA 6¢ MOVL — INPSL_AXTL(R12) ,R7 :GET POINTER TO NEXT MACRO LINE 
58 87 DOA, 63 10$ CVTWL | O(R7) 4 *GET LENGTH OF LINE 
50 14 OOA7 264 BGTR  MACLIN_COPY_LIN SIF GTR NOT SPECIAL LINE 
18 13 OOA9 265 BEQL 30 SIF EQL BLANK (NULL LINE) 
50 58 01 Al OOAB 266 ADDW3 #1,R8,RO ‘NEGATIVE=-ARE WE DONE? 
OF 13 OOAF 267 BEQL [IF EQL YES==DO END OF MACRO PROCESSING 
FFFE 8F 58 81 00B1 268 CMPW ORB aT XS TXTLNK! “KF FOO SNO=-SPECIAL TEXT LINK? 
M3 12 008 69 BNEQ  MACLIN_NEXT_CHO SIF NEQ NO=-IT 1s LINE WITH SPECIAL OPERATOR 
57 87 D0 008 70 MOVL (R7)+,R7 SYES--GET LINK TO NEXT 
57 08 CO 0068 71 ADDL2 #MXBSK _BLKSIZ,R7 ; sete header information 
E4 11 008 es BRB 0$ : CONTINU 
O1F4 31 00¢ 73 20$: BRW MACLIN_END_TEXT ‘ELSE END OF MACRO TEXT 
0184 31 00¢3 rh 308: iia p MACLIN “LINE_END ‘BRANCH AID 
58 FFFF8O000 BF CA 00¢6 id: est * PANCACETFFFD> RB :TRIM LINE LENGTH TO 15 BITS 
90cp 8 + HERE TO GET NEXT CHARACTER AND DISPATCH TO PROCESS IT 
00CD 280 MACLIN_NEXT_CHR: 
58 D5 00CD 81 TSTC R8 ;DONE WITH LINE? 
¢3 15 OOCF Be BLEG 308 TIF LEQ YES 
8 pd? 0001 DECL RB ‘COUNT NEXT BYTE 
5A 87) «= 90:«00D3 Ss 284 MOVE = (R7)+,R10 iGET NEXT CHARACTER 
08 14 00D6 285 BGTR 10% :BRANCH IF DEFINITLY NOT SPECIAL 
05 SA 3A 00D8 6 LOCC R10, #LENSK_MTXTAB,- :SEE IF IT IS A SPECIAL OPERATOR 
0000' CF 0DB W°MACLIN_MTXT_TAB sue 
99 12 OD 8 BNEQ 208 Ha NEQ YES--GO DISPATCH TO PROCESSOR 
§ »D E 10$: DECL R COUNT THE CHARACT 
9 19 O0€E 90 BLSS § MACLIN_NEXT_CHR [DON'T STORE IF THERE IS NO ROOM 
86 SA 90 O00E4 291 MOVB R10, (RB)+ i STORE THE CHARACTER 
a 1 OE? 36 BRB MACLIN_NEXT_CHR [GO FOR MORE 
34 3 : DISPATCH TO SPECIAL OPERATOR PROCESSING ROUTINE 
51 00000000'8F C2 00E9 % 20S: SUBL2 #MACLIN_MTXT_TAB,R1 :GET INDEX INTO DISPATCH TABLE 
0008'CF41 DD FO 9 PUSHL W*MACLIRN_DISP_TABLR1] GET ROUTINE ADDRESS 
5 00F 38 RS TRETURN TO EXECUTE ROUTINE 
0151 1 Fé 99 3 30$: BRW MACLIN_LINE_END ‘DO END OF LINE PROCESSING 
F9 1 : HERE IF LINE CONTAINS NO SPECIAL OPERATURS OR TEXT LINKS. JUST COPY 


a ; . rc 


a | 
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E ob 
; THE TEXT TO THE OUTPUT BUFFER 
7E O00003E8 BF : is 
66 67 O35€8 8&F . 
4 1 
0 
0 
0 3 


RB #INPSK_BUFSIZ,-(SP) ; Fompyte bytes phat Ha By remain in buffer 
B : EQ bytes w fit fit in buffer 
poves SAgPOe SOY SES» CF? 6RE) ; Copy only bytes that will fit in buffer 


0$: 


4 MACLIN_COPY IN: 
SU 
1 
66 67 58 28 
208: 


MOVC3 RB, (R7),(R6) ; Copy Line to buffer 


RS : Set number of bytes ae ag 
ADDL ns. : Point past end of Line in buffer 
RB ‘UPDATE NPUT POINTER 
BRW MACLIN _LINE_END :DC END OF LINE PROCSSING 
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v0%~000 PROCESS ARGUMENT MARKERS AND TEXT LINKS g: SEp- 1984 85:08:35 MACRO. SRCIJMACLIN.MAR; 1 ' a 
118 V7 .SBTTL PROCESS ARGUMENT MARKERS AND TEXT LINKS 
118 
118 MTX$_ARGMRK == ARGUMENT MARKER. GET THE ARG NUMBER AND STORE THE 
118 1 ; REPLACEMENT STRING FOR THAT ARGUMENT. 
118 i MACLIN_ARGMRK : 
SA 87 9a 0118 4 MOVZBL (R7)+,R10 :GET ARGUMENT NUMBER 
8 07 011 5 ECL j COUN 1 THE ohRg Mm ARKER 
SA 19 ACSA bg 1 $ MOVL —INPSL angs-4(n12)CR102, R10 ;GET ARG DESCRIPTOR POINTER 
A6 1 EQL = MACLI IRN IF‘ EQL NO REPLACEMENT STRING 
54 BA g 1 : MOVZWL (R ti :GET LENGTH OF REPLACEMENT STRING 
Al 10A EQL mACL IN REXT. CHR ;IF EQL NO REPLACEMENT STRING 
55 54 D1 012¢ 0 CMPL :STRING TOO LONG? 
07 (15 4 E 1 BLEG Foe" ;1F LEQ NO 
54 55 pO 0131 é MOVL R5,R4 TYES--JUST COPY WHAT WILL FIT 
55 FF BF «698 «(0134 CVTBL «= #=1,R5 [AND DON'T COPY ANY MORE AFTER 
55 24 C oi 8 4 10$:  SUBL2 R4,R5 SUPDATE THE COUNTER 
5 DD 0138 33 PUSHL R 7SAVE THE COUNTER 
66 6A 54 28 013d 6 MOVCS 4, (R10), (R6) :COPY ARG INTO LINE BUFFER 
56 53 D0 0141 337 MOVL R3,R6 {UPDATE BUFFER P OINTER 
55 BEDO 0144 338 POPL 5 ;RETRIEVE COUNT 
8 11 O47 339 20$: BRB MACLIN_NEXT_CHR :NEXT CHARACTER 
0149 341 3 MTX$_TXTLNK == TEXT LINK. GET THE LINK TO THE NEXT PAGE. 
0149 38 MACLIN_TXTLNK: 
57 87 DO 0149 344 MOVL (R7)+,R7 sLINK TO NEXT TEXT 
57 08 CO O14C 345 ADDL2 #MXBSK_BLKSIZ,R7 ; Skip header information 
58 D6 O14F 346 INCL R TUNCOUNT LINK BYTE THAT WAS COUNTED 
FF79, «31 «01510 347 BRW MACLIN_NEXT_CHR ; and continue (don't count byte tho) 


———— 


1 9 
1 ~$60-1986 02:08: 37 AX/VMS Macro V04-00 Page 11 oe 
LENGTH OPERATOR =SEP=1984 01:49:02 CMACRO.SRCJMACLIN.MAR; 1 (8) 


MACSMACLIN GET MACRO LINE 
v04-000 PROCESS LEXICAL 
a i .SBTTL PROCESS LEXICAL LENGTH OPERATOR 
154 $ 
154 5 : MTX$_LXLEN == LEXICAL LENGTH FUNCTION. THE NEXT BYTE IS AN ARGUMENT 
0154 53; DESCRIPTOR. IT CAN BE 0 (SPECIAL CANCEL), A LITERAL STRING, OR AN 
134 34 : ARGUMENT MARKER. PROCESS IT. 
a3 36 MACLIN_LXLEN: 
0201 30 0154 35 BSBW MACLIN.GET_STR :GET THE STRING ARGUMENT 
08 50 €9 0157 358 BLBC = RO, 108 ‘BRANCH IF THERE WAS AN ERROR 
52. 54 b0 015A 359 MOVL :POSITION FOR DECOUT 
023A = 30 015 60 BSBW  MACLIN_DECOUT [OUTPUT THE STRING LENGTH 
03 11 016 61 BRB 20$ :GO DO REST OF LINE 
02 30 016 6¢ 10$:  BSBW  MACLIN_ZEROUT SOUTPUT ZERO ON ERROR 
FF65 31 «016 63 20$: BRW MACLIN-NEXT_CHR 'DO REST OF LINE 
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MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 VAX/VMS Macro Vv04-00 Page 13 MAI 
y04~008 PROCESS LEXICAL LOCATE OPERATOR g- iets 4 94:08:32 MACRO. SRCJMACLIN.MAR; 1 9 40) 
cB 4 : .SBTTL PROCESS LEXICAL LOCATE OPERATOR 
1(B 404; 
1CB 425 ; MTX$_LXLOC <= LEXICAL LOCATE FUNCTION. THERE ARE TWO MANDATORY ARGUMENTS: 
1(B 4 $ 3 1) TRE SUBSTRING TO LOCATE, 2) THE STRING TO LOCATE IN. H 
1CB 427 : ARGUMENT, THE STARTING POSITION, IS OPTIONAL. IT WILL EITHER BE THERE 
ie ? 8 ; OR THERE WILL BE AN MTX$_NOMORE BYTE IN ITS PLACE. 
1CB 430 MACLIN_LXLOC: 
1gA 30 01¢B 431 BSBW MACLIN.GET_STR :GET THE STRING 
73 50 +€9 Ice 4 ¢. BLBC ~=—_—»RO, 508 ‘BRANCH IF ERROR 
11 4 4 i : SAVE POINTERS FOR LATER USE 
51 0000'CF i 1D1 4 3 MOVAB WeMACSAB_ TMPBUF ,R1 :POINT TO SAVE AREA 
81 54 DO 0106 4 MOVL  R4,(R1)+4 ‘STORE LENGTH OF STRING 
SA oO 109 438 MOVL &10,(R1)+ tAND ITS ADDRESS 
O10 440 : PICK UP PARAMS FOR SECOND ARGUMENT (STRING TO LOCATE IN) 
0179 30 oip¢ 44g BSBW MACLIN. GET_STR :GET THE SECOND ARGUMENT 
62 50 9 1DF 44 BLBC SGRANCH IF ERROR 
51 OOO8'CF SE Oiee 444 MOVAB W*HACSAB_ TMPBUF +8,R1 :POINT TO TEMP BUFFER 
81 54 00 OIE 445 MOVL _R4, (R1) SSAVE ITS LENGTH 
81 Sa 00 TEA 446 MOVL R10, trie SAND LOCATION 
DIED 448 : GET OPTIONAL STARTPOS ARGUMENT IF PRESENT 
EC BF 67 91 O1€D 450 10S: CMPB  —s_- (R7’) , #@MTX$_NOMORE :1S THERE NO STARTPOS ARG 
08 12 O1F1 451 BNEQ 15$ SIF NEQ IT MAY BE THERE 
7 06 O1F3 43¢ INCL =R? :1TS NOT THERE--BUMP POINTER 
58 D7 gir 45 DECL RB :DEC. COUNTER 
51 D4 «OF? «454 CLRL sR SUSE STARTPOS OF 0 
13 11 «#O1F9 = =455 BRB 20$ :AND GO FINISH 
FE BF 467) «691 «COO1FB «4456 158: CMPB ss (R77) , #MTX$_TXTLNK [1S IT A TEXT LINK? 
07 #12 «OF 457 BNEQ 17$ iT NEQ NO 
57 06 0201 458 INCL 7 sYES=--SKIP THE BYTE, BUT DONT COUNT IT! 
00E1 30 0 03 459 BSBW  MACLIN_LINK_CHO ‘LINK TO NEXT PAGE 
e511 06 460 BRB 10$ ‘AND TRY AGAIN 
OOEB 30 0208 461 17$:  ##BSBW MACL IN. GET_VAL :NO=-GET THE VALUE 
36 50 £9 0208 46¢ BLBC ~—_- RO, 50$ BRANCH IF ERROR 
50 0000" CF 9E O20 463 20$: MOVAB W*MACSAB_TMPBUF RO [POINT TO TEMP BUFFER 
5 DD 0213 464 PUSHL RS i SAVE R5 
54 0 D 0215 465 MOVa (R0}+, oR4 R4=SUBSTR LENGTH, RS=SUBSTR ADDR 
52 7D 0218 466 MOV (RO) +<R2 R2= STRING LENGTH, R3=STRING ADDR 
4 DD 021B 467 PUSHL R4 :SAVE LENGTH OF SUBSTR ING 
3g D 1D 468 PUSHL R SAVE LENGTH OF STRING 
D 1F 46 TSTL R i1S SOURCE STRING ADDR NULL? 
3 1 470 BEQL 30% YES, ASSUME NOT FOU 
52 31 c2 .- oe SUBL2 R1,R2 :DECREASE STRING LENGTH BY STARTPOS 
6341 52 6 4 6 Are MATCHC R4.(RS),R2,(R3)CR1] [PERFORM THE LOCATE 
09 1 . oe BNEQ 308 SIF NEQ OUN 
52 8 > ¢£€ 47% SUBL3 R2,(SP)+,R2 [FIGURE STARTING POSITION 
E : 475 SUBL (SB)+ .R2 tR2 HAS STARTING POSITION 
476 BRB 40$ :JOIN COMMON CODE 
2 BED) 477 30$: POPL Re [NOT FOUND=--RETURN STRING LENGTH 
—E D A 478 TSTL  (SP)+ [CLEAR STACK 


_ 
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MACSMACLIN GET MACRO LINE 16-SEP-19 :0 #4 AX/VMS Macro V04-00 P 15 
v04-000 END OF LINE/END OF TEXT PROCESSING 3b] 98c 8:2 MACRO.SRC JMACLIN.MAR; 1 = (11) 


4A if .SBTTL END OF LINE/END OF TEXT PROCESSING 
4A 490; 
4A 491 : LINE IS DONE 
4A 496 : 
4A 493 MACLIN_LINE END: 
55 DS 024A 494 TSTC. —RS :WAS LINE TOO LONG? 
10 «(18 0 4C 495 BGEQ 10% IF GEQ NO 
4E 496 SINTOUT_LW INT$_ERR,<#MACS_LINTOOLONG,#0> ; Yes--error 
03 «11 0 SC 49 brb 7158 
86 0D 29 SE 498 10$:  MOVB  @CR (R6) sEND LINE WITH CR 
55 56 00000001'8F ¢ 61 499 15$: SUBL3 #MACSA B LINEBES1 R ,R6,R5 iE IGURE LINE LENGTH 
O000'CF 55 D0 0269 500 MOVL Pantry SAVE FOR L 
04 ac 57 D0 $ 501 20$: § MOVL Bz NPSL AKT eR , [SET NEXT LINE POINTER 
OB OOOS'CF E8 O 208 BLBS wW“LST$G_ mA ist oVAt 30$ ;BRANCH oF LISTING MACRO EXPANSIONS 
06 0005'CF £8 0277 50 BLBS wW*LST$G~ MACROBIN+SYMS L 308 -BRANCH IF LISTING MACRO BINARY 
0000'CF 05 0 7c | «504 TSTL WA*MACSGC_LIST_LVL K THE LISTING LEVEL 
23. «15 0 80 305 BLEQ  40$ ‘CRNA IF NOT LISTING 
0 : 207 : MACRO LINE WILL BE LISTED. EMIT LINE TO INTERMEDIATE BUFFER 
0282 509 $0: 
028 510 SINTOUT_X INT$_CHKL ; Align spy 
50 55 06 c1 0288 511 ADDL3 7#4,R5,RO : Figur size 
FD71" 30 028¢ 318 BSBW  MACSINTOUT_N :SET UP 10 STORE THE LINE 
FF AS FF 8F 90 O28F 51 MOVB -1,-1(R :SET SPECIAL MACRO CINE FLAG 
89 16 90 0294 514 MOVB = #INTS_ MACL, (R9) + [STORE CODE 
89 55 B0 0297 515 MOVW (RO) + :STORE LENGTH OF LINE 
69 O0000'CF 55 28 029A 516 MOVC3 R5.W*MACSAB_LINEBF,(R9) :COPY LINE INTO INT. BUFFER 
59 53 00 O2A0 517 MOVL R3,R9 [UPDATE THE POINTER 
a 11 Ht 218 BRB MACLIN_EXIT SFINISH UP 
9 AD 3 9 : MACRO LINE WILL NOT BE LISTED. 
50 04 9A O33 5 é dos: MOVZBL :SET TO STORE 4 BYTES 
FD55° 30 O2aB 5§ BSBW RAESINTOuT _N ‘SET UP FOR THEM 
FF AD FF BF 90 O2AB 524 MOVB = #1,-1(R [SET SPECIAL MACRO LINE FLAG 
89 16 90 0 B0 525 MOVB ints _MACL, (R9)+ TSTORE CODE 
89 B4 0283 526 CLRW CC [ZERO LENGTH LINE 
1B O11 0 BS 3 , BRB MACLIN. EXIT :GO FINISH UP 
9 B/ 9: : WE REACHED THE END OF THE MACRO TEXT 
0 87 1 MACLIN_END_TEXT: 
0000'CF D5 0287 3 TST W°MACSGL_IF_LEVEL iCHECK THE IF -LEVEL 
10 13 O2BB § BEQ 1 ULD BE AT LEVEL 0 
BD 534 Sintout LW INTS_ WRN, <#MACS_ UNTERMCOND W*MACSGL LINEPT> ; No--error 
FD30" 30 O2CD 3 5 10$: SBW ~MACSPOP~ INPUT sPOP AN NINBU T CEVEL 
03 11 02D 6 BR B MA CLIN EXO :SKIP R1 set 
D 3 MACLIN_EXIT: 
5A 20 9A 02d 8 MOVZBL #BLNK,R10 sRESET R10 
DS 539 MACLIN_EXO: 
0000'CF O000'CF 9€ 0205 540 MOVAB W*MACSAB_LINEBF,W°MACSGL_ERRPTX ;SET ERROR TOKEN POINTER 
1178 8F A of 241 POPR #°M<R3,RZ_RS,RO.R7,RS,R12> RESTORE REGISTERS 
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16-SEP- :0 AX/VMS Macro V04-00 Pa 1 
BYTE IN LEXICAL OPERATORS 'S-SEP=19B4 Diige.0s YMACKO see imach GN eMaR: 1 ve 1; 


~SBTTL CHECK FOR LINK BYTE IN LEXICAL OPERATORS 


ow 


+4 
: FUNCTIONAL DESCRIPTION: 


R10,R8,R7 UPDATED IF R10 WAS A TXTLNK 


: THE LEXICAL OPERATORS may oHave OPERANDS THAT SPAN ACROSS 

: PAGES. IF THIS IS THE C THERE WILL BE A TXTLNK BYTE. 
; THIS ROUT INE CHECKS FOR mt AND IF IT IS THE CASE, SPANS 
: TO THE NEW PAGE. 

t INPUTS: 

: R10 THE BYTE iN QUESTION 

: R LINE COUN 

: R LINE COUNTER 

: OUTPUTS: 


DV PVPV IUD VUSVSVSVSTVS VSS USSU TSS ISIS 


THM MMMMMMMMM MMMM mmmmmmrmnenienmncrierienicricriericry 
SSNS SSA AAA AAAAAAMMMNMIMIIM EE EEE AM 
BUF WN (OOO NAUE WN 9 OONOULS WN OVWONOus 


OWNS BP NINN 2 2 


-ENABL LSB 
MACLIN_LINK_CHK: 
FE 8F 5A 91 cmMP6 R10, 4#MTX$_TXTLNK 31S IT A TEXTLINK? 
07 12 BNEQ 0$ 3 IF NEQ NO 
MACLIN_LINK CHO: 
57 87 00 move (R7)+,R7 :YES=-LINK TO NEXT PAGE 
57 08 9 St #MXBSK_BLKSIZ,R7 i Skip header information 
0000' CF 00 FB 10$: CALLS #0,W*MACSERR_INTERN sREPORT INTERNAL CONFUSION 
FDOA' 31 OTe ADL’ MACSAB BORT _PASS1 s TERMINATE PASS 1 


MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 VAX/VMS Macro V04-00 Page 17 MAC 
v04-000 GET VALUE FOR LEXICAL OPERATOR mets 7 94:08:35 MACRO. SRCIJMACLIN.MAR; 1 9 43) Tat 
F6 iH .SBTTL GET VALUE FOR LEXICAL OPERATOR 
F6 0 ;++ 
r6 ; 1 : FUNCTIONAL DESCRIPTION: 
F6 : ; THIS ROUTINE PICKS UP THE NEXT ARGUMENT (11 MUST BE NUMERIC) 
Fé 3 4 ; AND RETURNS IT TO THE CALLER. 
F6 rn > OUTPUTS: 
F6 87 : 
F6 8 ; RO 0 ERROR 
8 F6 282 3 1 K 
F6 0; R1 VALUE IF RO=1 
O2F6 591 : | 
O2F6 298 i-- 
02F6 59 
02F6 594 .ENABL LSB 
02F6 595 MACLIN_GET_VAL: 
58 D7 O2F6 596 DECL RB ;COUNT NEXT BYTE 
50 D4 O02F8 597 CLRL —RO 'CLEAR IN CASE CANCEL BYTE 
SA B87 9A O2FA 598 SS: MOVZBL (R7)+,R10 [GET ARG DESCRIPTOR BYTE 
58 13 O2FD 599 BEQL  60$ [IF EQL SPECIAL CANCEL BYTE 
O2FF 600 MACLIN_GET_VLO: 
EE 8F SA 91 OFF 601 CMPB) = R10, #MTX$_LITVAL :1S IT A LITERAL VALUE? 
0B 13 0303 60¢ BEQL SIF EQL YES 
ED 8F SA 91 0305 60 CMPB =—s- R10, #MTX$_SYMADR :1S IT AN ABSOLUTE SYMBOL ADDRESS? 
0A 13 0309 604 BEQL 2 SIF EQL YES 
FFD3 30 030B 605 BSBW  MACLIN_LINK_CHK ‘NO=-SEE IF A TEXT LINK 
EA 11 0308 606 BRB 5$ :TRY AGAIN 
0310 608 : IT WAS A LITERAL VALUE=-PICK IT UP 
51 87 DO 0310 610 10$:  MOVL (R7)+,R1 :GET THE VALUE 
3¢Oi«d11 0313 611 BRB 50$ SEXIT WITH SUCCESS 
0515 ei8 : IT WAS A SYMBOL ADDRESS 
51 87 DO 0315 615 20$:  MmOovVL  (R7)+,R1 GET THE SYMBOL BLOCK ADDRESS 
51 DD 0318 616 PUSHL R11 SYMBOL A 
1809 Al 00 £0 O31A 617 BBS #SYMSV_DEF SYMSi FLAG(RIS® ait “BRANCH IF SYMBOL DEFINED 
52. 00000000'ES SE O31F 618 MOVAB L“MACSIB LINEBF(RS),R2 ;SET UP LINE POIN NTER 
0326 619 SINTOUT_LW INTS$_ERR, CohAcS _UNDEF F8y YM,R2> ; Send error to pass 2 
51 6€ DO 0324 620 MOVL ESE SYMBOL BLOCK ADDR He 
0E 09 Al =204—CO#EO 337 621 30$: BBS #SYM$V_ABS,SYMSW_FLAG(R1S.40$ :BRANCH IF ABSOLUTE 
Cc 6 ¢ EN LW INTS_ ERR, <AMATS_ SYMNOTABS , R2> ; No--error = poss 2 | 
51 BEDD 034A 623 40S: OPL “R1 :GET SYMBOL ADDRESS. AGAI 
51 05 Al DO 0340 624 ROVE SYMSL | VAL(R1),R1 er HE SYMBOL VALUE 
58 04 «= C2.—«0851.~=«695 50S: SUBL2 #4. SCOUNT 4 BYTES GO | 
50 01 DO 0354 6 : MOVL #1.RO TRETURN SUCCESS 
05 0357 627 60$: SB 
358 628 .DSABL LSB | 
| 
| 
j 


MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 VAX/VMS Macro V04-00 Page 18 | 
v04=000 GET STRING FOR LEXICAL OPERATOR = $ee= 1382 84:08:35 MACRO. SRCJMACLIN.MAR; 1 9 la) 
; 6 0 .SBTTL GET STRING FOR LEXICAL OPERATOR | 
$3 | 
5 6 p++ 
; b 4 + FUNCTIONAL DESCRIPTION: | 
586 : : THIS ROUTINE RETURNS THE ADDRESS AND LENGTH OF THE NEXT ARGUMENT 
3 6 fi FOR A LEXICAL OPERATOR (MUST BE STRING ARGUMENT). | 
0358 639 : OUTPUTS 
035 640 ; 
0 58641: RO 0 CANCEL WAS SEEN 
5 646 ; 1 OK 
0398 643 : RG LENGTH OF STRING 
0358 644: R10 ADDRESS 
0358 645 : 
035 646 ;-- 
0358 647 
0358 648 MACLIN_GET_STR: 
58 (7 0338 649 DETL =e RB :COUNT NEXT BYTE 
50 «6D4 «(035A «650 CLRL —-RO [CLEAR IN CASE CANCEL BYTE 
SA 87 9A O035C 651 10$:  MOVZBL (R7)+,R10 :GET ARG DESCRIPTOR BYTE 
36 13)—«O35F 63¢ BEQL 50$ TIF EQL SPECIAL CANCEL BYTE 
EF BF 5A 91 0361 65 CMPB so R10, #MTXS$_LITSTR [1S IT A LITERAL STRING? 
1E 13 0365 654 BEQL 30$ [IF EQL YES 
FF 8F SA 91 0367 655 CMPB «R10, #MTX$_ARGMRK tNO=-1S IT AN ARG MARKER? 
05 13 0368 656 BEQL 208 [IF EQL YES 
FF71 30 036D 657 BSBW  MACLIN_LINK_CHK tNO=-SEE IF A TEXT LINK 
EA 11 0370 638 BRB 10$ SAND TRY AGAIN 
0372 660 : ARGUMENT MARKER 
58 D7 0372 662 208: DECL R8 : COUNT ARG NUMBER BYTE 
SA 87 «(OA 0374 «66 MOVZBL (R7)+,R10 GET A RG NUMB 
54 D4 0377 664 CLRL RG LEAR LENGTH IN CASE NULL STRING 
SA 19 ACCA DO 0379 665 MOVL § INPS$L_ARGS-4(R12)CR10, nis GET DESCRIPTOR POINTER 
14 13 O37E 666 BEQL 40$ F°EQL NULL STRING 
54 BA OC 0380 667 MOVZWL (R10)+,R4 ‘tty THE LENGTH OF THE STRING 
0383 668 : AND LEAVE R10 POINTING AT STRING 
OF 11 0383 669 BRB 40$ 'GO RETURN 
Seee 670 ;sx 
0 85 671 : LITERAL STRING 
54 87 3¢ 0388 or $0$:  MOVZWL (R7)+,R4 :GET LENGTH OF LITERAL STRING 
Sa OS7~—C«# B 674 MOVL _R7,R10 [POINT R10 TO START OF STRING 
ay 6%. «CE 0388 675 ADDL2 R4<R7 ‘SKIP THE STRING 
58 54) SCOC2s«OO38E 676 SUBL2 R4.R8 [COUNT THE STRING | 
58 «(02 «COC 0391 67 SUBL2 #2.R8 [COUNT THE COUNT WORD 
50 01 DO 0394 678 40S: OVL #1.RO SRETURN GOODLY 
05 0397 679 50$: SB ‘DONE 
| 
| 
j 
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MACSMACLIN GET MACRO LINE 16-SEP-1984 02:08:37 YAX/VMS Macro v04-00 Page 
V0S~000 OUTPUT DECIMAL NUMBER -SEP-1984 85:08:35 MACRO. SRCJMACLIN.MAR; 1 
3 ‘pa .SBTTL OUTPUT DECIMAL NUMBER 
9 i+ 
3 6 4; FUNCTIONAL DESCRIPTION: 
98 686 THIS ROUTINE OUTPUTS A DECIMAL NUMBER TO THE LINE BUFFER BEING 
98 687 ; CREATED. 
98 6 gi : 
98 689 ; INPUTS: 
98 690: 
98 691: R NUMBER TO OUTPUT 
9 63¢ : R LINE COUNTER 
9 93 : R6 LINE POINTER 
98 69% : 
0398 695 ; OUTPUTS: 
0398 696 
039 697 : RS,R6 _ UPDATED 
0398 698 ; NUMBER OUTPUT 
0398 699 ; 
0398 700 :=-- 
0398 701 
0398 108 MACLIN_ZEROUT: 
52 D4 0398 70 Ls R2 ;OUTPUT A ZERO 
039A 704 MACLIN_DECOUT: 
53 D4 039A 705 CLRL RB ;CLEAR HIGH WORD 
52 OA 7B 039C 706 10$:  EDIV #10,R2,R2,R0 :DIVIDE 
50 30 80 O3A1 707 ADDB2 #*A/0/<RO SCONVERT TO ASCII 
50 DD O3A4 708 PUSHL RO SAND STA 
52 DS «(03A6 = 709 TSTL Re :ANY MORE TO 007 
02 13 O3A8 710 BEQL 208 i TF EQL NO--UNSTACK AND OUTPUT 
FO 10 O3AA 711 BSBB «10S i YES-=RECURS E TILL 0 
50 BEDO O3AC 118 20$:  POPL RO SGET THE DiciT BACK 
55 D7 «(O3AF 71 DECL R5 [SEE IF ROOM TO STORE IT 
03 19 0381 71% BLSS 308 IF LSS NO 
86 50 90 0383 715 MOVB RO, (R6)+ :STORE THE DIGIT 
05 0386 716 30$: RSB TRECURSE OR RETURN © 
0387 717 
0387 718 END 
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Page 
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; 
; 
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Phase Page faults CPU Time Elapsed Time 


Initialization 7 00:00: 9.9% 60: 00:8 98 
Command processing 128 00:00: - :00:02.51 
Pass 222 00:00:03.7 0:00:18.55 
Symbol table sort 0 00:00:00.4 B98 :0) +38 
Pass 2 138 00:00:01.19 0: 808" 0 
Symbol table output 33 00:00: 8.18 4 $8 4 
Psect synopsis output 3 9 4 0:00:00.0 
Cro:s-reference output ° 00:00:00.00 00:00:00.0 
Assembler run totals 56 00:00:06.00 00:00:30.5 


The working set Limit was 1500 pages. 

36150 bytes_(71 pages) of vi-tual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 468 non-local and 59 local symbols. 
718 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 
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_$255$DUA28 : (MACRO.OBJJMACRO.MLB; 1 1 
$255$DUA28: CSYSLIBJSTARLE| MLB; 2 
TOTALS (all Libraries) 15 


574 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MACLIN/OBJ=OBJ$:MACLIN MSRC$:MACLIN/UPDATE=(ENH$:MACLIN) +LIB$:MACRO/LIB 


- ABS. 00000000 < -) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
- BLANK . 000 0 ( 0.) QO1 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD 
SABSS Q000003C ¢ ‘60.) § ( ¢-} NOPIC USR CON ABS LCL NOSHR 
MACSRO_DATA 0000 Ag ( ) ( 3.) NOPIC USR CON REL GBL NOSHR NOEXE 
MACSRO_CODE _MAC 00003B7 ¢ 951.) 04 ¢ 4.) NOPIC USR CON REL GBL NOSHR XE 
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